home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
windows
/
mrun211.zip
/
TERMINAL.WAS
< prev
next >
Wrap
Text File
|
1993-05-01
|
579b
|
38 lines
;MailRun 2.1 Terminal mode script
integer UserHit
proc main
integer char
long l
dialogbox 284 232 76 25 14 "Terminal Mode"
pushbutton 20 5 34 13 "E&xit" cancel
enddialog
alarm 2
UserHit = 0
set aspect keys ON
when dialog call parse
l = $LTIME + 30
while (l - $LTIME) && !($KEYHIT)
endwhile
if $KEYHIT
keyget char
computc char
set aspect keys OFF
while 1
endwhile
else
set aspect keys OFF
exit
endif
endproc
proc parse
integer status
status = $DIALOG
if status == 1
set aspect keys OFF
exit
endif
endproc